Trailing-Edge
-
PDP-10 Archives
-
6.1_emacs_manuals_1er
-
emacs/mm-mail.:ej
There are no other files named mm-mail.:ej in the archive.
P W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
M &
\ .
: ; E ` Q \ t i t
H " @ . 3 ?
J / U v b 9 n k
V
:
e I ` X
J c z l *H s R ~ 6 V d U r ) 4 o 3 A O H o n t 6 Z $ A 2 A L ^ " p ~ <
"u & MMAIL ..L & MMAIL Default Setup & MMAIL DIRED ..F & MMAIL DIRED Delete & MMAIL DIRED Enter & MMAIL DIRED Examine & MMAIL DIRED Flag & MMAIL DIRED Help & MMAIL DIRED Mark & MMAIL DIRED Mark Subr & MMAIL DIRED Quit & MMAIL DIRED Reply" & MMAIL DIRED Reverse Undelete & MMAIL Dired Setup & MMAIL DIRED Type & MMAIL DIRED Undelete & MMAIL FS Superior* & MMAIL Maybe Put Buffer in Top Window & MMAIL Message Setup & MMAIL Reply setup & MMAIL Send setup & Setup MMAIL Library MMAIL Dired ^R MMAIL Dont change field ^R MMAIL Return to Superior ^R MMAIL Send Mail ^R MMAIL Yank ~DIRECTORY~ ~DOC~ & MMAIL ..L ~DOC~ & MMAIL Default Setup ~DOC~ & MMAIL DIRED ..F ~DOC~ & MMAIL DIRED Delete ~DOC~ & MMAIL DIRED Enter ~DOC~ & MMAIL DIRED Examine ~DOC~ & MMAIL DIRED Flag ~DOC~ & MMAIL DIRED Help ~DOC~ & MMAIL DIRED Mark! ~DOC~ & MMAIL DIRED Mark Subr ~DOC~ & MMAIL DIRED Quit ~DOC~ & MMAIL DIRED Reply( ~DOC~ & MMAIL DIRED Reverse Undelete ~DOC~ & MMAIL Dired Setup ~DOC~ & MMAIL DIRED Type ~DOC~ & MMAIL DIRED Undelete ~DOC~ & MMAIL FS Superior0 ~DOC~ & MMAIL Maybe Put Buffer in Top Window ~DOC~ & MMAIL Message Setup ~DOC~ & MMAIL Reply setup ~DOC~ & MMAIL Send setup ~DOC~ & Setup MMAIL Library ~DOC~ MMAIL Dired$ ~DOC~ ^R MMAIL Dont change field% ~DOC~ ^R MMAIL Return to Superior ~DOC~ ^R MMAIL Send Mail ~DOC~ ^R MMAIL Yank ~DOC~ ~Filename~ ~Filename~
~INVERT~v 1m.vTags Find File
0uDefault Major Mode
m.m& MMAIL FS Superiorfssuperior
m.m& MMAIL ..Lu..l
:iEditor typeMMAIL
1f[reread
m(m.mText mode)
m(m.mRename buffer)Message
f]reread
-1[0m.m& Create buffer[1[2[3
qMode[4
@:i2|m1u3q4u:.b(q3+3)|
:i*Headersm2:i*Replym2
m(m.m& Set mode line)
1fsexit
0fo..qMMAIL Setup hook[0
fq0"gm0 '
fsrgettym.vMMAIL Two Window Reply Default
fsrgettym.vMMAIL Two Window Send Default
0m.vMMAIL Two Window Dired Default
m.m^R MMAIL Yanku...Y
m.m^R MMAIL Return to Superioru:.X( )
m.m^R MMAIL Send Mailu:.X( )
m.m^R MMAIL Dont change fieldu:.X( )
: fsecholines-3"g3fsecholines'
[0[10fo..qWindow 2 Size[2
q2"gfstopline"e@m(m.m^R Other Window)''
.,(fj-@f
k-@:f fx0-d).fx1
m(m.m& MMAIL 0 Setup)
:m(m.m& Toplevel ^R)N [1.,(fj-@f
k).fx1
q1m(m.mSelect Buffer)j
"l0'"#hk',0i
0fsexit
4 0f[topline0f[lines0f[refresh0[..j
f+0fsexit! :wi
:i*Messagem(m.m& Find Buffer)[0
g:.b(q0+4)
ff"e
.-z(<-lq0-.;2 f=
"n4,32i'>)+zj'
m(m.m& MMAIL Maybe Put Buffer in Top Window)Headers
:,. 5 0f[topline0f[lines0f[refresh0[..j
f+-1fsexit5 0f[topline0f[lines0f[refresh0[..j
f+-2fsexit ) 0fo..qMMAIL Two Window Send Default"g
0fo..qWindow 2 Size"e
m(m.mSelect Buffer)Headers
6f[lines
1m(m.m^R Two Windows)
f]lines
fslinesf"e
fsheight-(fsecholines)-1'm.vTotal Size
qTotal Size-1-qWindow 1 Sizem.vWindow 2 Size
m(m.mSelect Buffer)Reply'
"#m(m.mSelect Buffer)Reply
m(m.m& MMAIL Maybe Put Buffer In Top Window)Headers''
"#1:<1m(m.m^R One Window)>
m(m.mSelect Buffer)Reply'
* 0fo..qMMAIL Two Window Reply Default"g
0fo..qWindow 2 Size"e
m(m.mSelect Buffer)Message
1m(m.m^R Two Windows)
m(m.mSelect Buffer)Reply'
"#m(m.mSelect Buffer)Reply
m(m.m& MMAIL Maybe Put Buffer In Top Window)Message''
"#1:<1m(m.m^R One Window)>
m(m.mSelect Buffer)Reply'
B :i* [0
0fo..qWindow 2 Size"g
fstopline"e@m(m.m^R Other Window)'
q0uWindow 1 Buffer
q0m(m.m& Find Buffer)[1q:.b(q1+4)uOther Window Buffer
0uWindow 1 Pointer0uWindow 1 Window
.(-(qWindow 2 Size)l.fswindoww)j
:f
qWindow 1 Size-(
f=0Headers"e3'"#QTotal Size/2')f"nm(m.m^R Grow Window)''
0fo..qMMAIL Two Window Dired Default"g
1:<@m(m.m^R Two Windows)>'
"#1:<@m(m.m^R One Window)>'
m(m.m& MMAIL Maybe Put Buffer in Top Window)Dired
m.m& MMAIL DIRED Enterf[^Renter
m(m.mSelect Buffer)Dired
[..J:I..JMMAIL DIREDj
1f[readonly
0u..hV 0F[^RENTER
M.M& MMAIL DIRED ..F[..FQ..F[.F
1F[^RMDLYW0F[^RMCNT
M.VMMAIL DIRED Dispatch
[MMAIL DIRED Dispatch
13*5FSQVECTOR[0
Q0UMMAIL DIRED Dispatch
-1[1
M.M& MMAIL DIRED DeleteU:0(%1)
M.M& MMAIL DIRED DeleteU:0(%1)
M.M& MMAIL DIRED UndeleteU:0(%1)
M.M& MMAIL DIRED Reverse UndeleteU:0(%1)
FS^RINITU:0(%1)
M.M& MMAIL DIRED MarkU:0(%1)
M.M& MMAIL DIRED FlagU:0(%1)
M.M& MMAIL DIRED ReplyU:0(%1)
M.M& MMAIL DIRED ExamineU:0(%1)
M.M& MMAIL DIRED TypeU:0(%1)
M.M& MMAIL DIRED HelpU:0(%1)
M.M& MMAIL DIRED QuitU:0(%1)
M.M& MMAIL DIRED QuitU:0(%1)
]1]00 K FS^RMODE"E '
[0[1[20^V
<2,M.I^:FI:FCU0
Q0FDKU MFRET?QXU1
Q0-200.FDKF"GU1'
Q1+1"GFI
FS^RARGP&2"N
FS^RARG'"#1'U2
FS^REXPT<Q2*4U2>
FS^RARGP"NQ2'^M:MMAIL DIRED Dispatch(Q1)(
0FS^RARGPW0FS^RARGW0FS^REXPTW
-1FS^RPREVW
)^V!<!>'
^:FIU0Q0&177.-137."GQ0-40.U0'
Q0^FS^RCMAC-(32FS^RINIT)"E
FGFI!<!>'
0;>0 , 500.+4,m(m.m& MMAIL DIRED Mark Subr)D, 600.+4,m(m.m& MMAIL DIRED Mark Subr)D' 1,m(m.m& MMAIL DIRED Mark Subr)U' 2,m(m.m& MMAIL DIRED Mark Subr)F) -l1m(m.m& MMAIL DIRED Undelete)(-l) . 0l"gz-'."efg1 '
0f[readonly
:i* [0
<.-z;
"l.;-l'&77.c
&300.f"n&100."n1a-32"ef 0''"#1a-32"nf '''
"#w1a-32"ef 0'"#f ''
"gl'>
&400."e-l'"#-'f m(m.mdescribe)MMAIL DIRED b 0fo..qWindow 2 Size"g@m(m.m^R Other Window)'
0l@fRUFAD l
0f[readonly\+777774777777.fsexit
"eht'"#0j'
0fo..qWindow 2 Size"g@m(m.m^R Other Window)'
"#m(m.mSelect Buffer)Dired'
0l1a- N"efR'2a-32"n.+1f ' @ 0f[topline0f[lines0f[refresh0[..j
0f[readonlyf+0fsexith 0fo..qWindow 2 Size"g@m(m.m^R Other Window)'
0l@fRUFAD l
0f[readonly\+777773777777.fsexit
! 1,:m(m.m& MMAIL DIRED Type) MMAIL -*-teco-*- macros for MMAIL.s S Set up MMAIL commands.
C-M-Y is yank in current msg. But, if
q$MMAIL Setup hook non-zero, runs it instead.9 S ..L for MMAIL.
Gets what we are doing from the jclg S FS Superior for MMAIL.
Gets the name of the buffer to select from the JCL as well as making room3 ^R Return to MM and update field being editted.
^R Insert the current message (one being replied to)
Indents 4 spaces unless arg given. Leaves point and mark around inserted
text.7 ^R Pass contents of the buffer to superior to send.4 ^R exit and tell MM not to make the edit change. S Nothing special.2 S Prepare for editting a message in send mode.3 S Prepare for editting a message in reply mode.L S If there are two windows,
make the top one point to the right buffer.( C Edit the message headers
Enters ^R mode with the list in the buffer.
D deletes the message which is on the current line. (also K,^D,^K)
U undeletes the current line message.
Rubout undeletes the previous line message.
Space is like ^N - moves down a line.
M toggles the unseen (marked) bit.
F toggles the flag bit.
R replies to the current line message.
T types the message.
E edit the message in a recursive ^R.
? types this cruft.
Q or X exits
The D,U commands repeat if given an argument, backwards if negative.m S FS ^R ENTER for DIRED.
Puts & MMAIL DIRED ..F into ..F so that this ^R becomes
a DIRED command loop.. S ..F macro to make ^R understand DIRED commands.
It reads DIRED commands and executes them. When a control- or
meta- character is typed, it is left for ^R to execute. S Delete current file. S Delete current file. S Delete current file. S Delete current file.$ S Move up one line and undo a D. S Pre-comma is position. S Type our help msg. S Type out this message. S Exit from DIRED. S Reply to current message. S ...Y & Setup MMAIL Library
& MMAIL ..L
& MMAIL FS Superior
^R MMAIL Return to Superior
^R MMAIL Yank
^R MMAIL Send Mail
^R MMAIL Dont change field
& MMAIL Default Setup
& MMAIL Message Setup
& MMAIL Send setup
& MMAIL Reply setup
& MMAIL Maybe Put Buffer in Top Window
& MMAIL Dired Setup
MMAIL Dired
& MMAIL DIRED Enter
& MMAIL DIRED ..F
& MMAIL DIRED Delete
& MMAIL DIRED Undelete
& MMAIL DIRED Mark
& MMAIL DIRED Flag
& MMAIL DIRED Reverse Undelete
& MMAIL DIRED Mark Subr
& MMAIL DIRED Help
& MMAIL DIRED Type
& MMAIL DIRED Quit
& MMAIL DIRED Reply
& MMAIL DIRED Examine
T +8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0 '>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2